home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abl.d64 / WORDS (.txt) < prev   
Commodore BASIC  |  2007-02-04  |  5KB  |  133 lines
  1. 0 POKE691,1:GOTO100
  2. 1 SYS52440:IFA1%>.THENA$=LEFT$(SP$,A1%):SYS52360
  3. 2 RETURN
  4. 3 Q=.:K=LEN(N$):FORJ=1TO10:IFLEFT$(S$(J),K)=N$THENQ=1
  5. 4 NEXT:RETURN
  6. 5 PRINT" [146][157]";:FORKZ=1TO9990:SYS52320:IFA2%>128THENA2%=A2%-128
  7. 6 IFA2%=89ORA2%=78ORA2%=13THEN8
  8. 7 NEXTKZ:A$="[217]":RETURN
  9. 8 IFA2%=89ORA2%=13THENA$="[217]ES.":GOSUB30:A$="[217]":RETURN
  10. 9 A$="[206]O.":GOSUB30:A$="[206]":RETURN
  11. 10 SYS52300:IFA1%<0THENPRINT"[212][197]":GOTO900
  12. 12 A$=LEFT$(SP$,A1%):SYS52360:GOSUB810:O$=A$:RETURN
  13. 13 ON-(RF=1)GOTO2:OPEN4,8,4,"0:/WORDS,S,R":RF=1
  14. 14 FORQ=1TO10:INPUT#4,S$(Q),A$:S(Q)=VAL(A$):NEXT:CLOSE4:RETURN
  15. 15 ON-(G<6)GOTO365:A$="":FORK=1TO5:Y(K)=Y(K)+128:A$=A$+CHR$(Y(K)):NEXT:T$="WAS "
  16. 16 IFASC(A$)=128THENA$="[206][207] [195][200][197][193][212][201][206][199]":T$="IS "
  17. 17 A$="[212]HE WORD "+T$+A$+" !":GOSUB30:GOTO365
  18. 24 A$=LEFT$(SP$,(CW-LEN(A$))/2)+A$+"":GOSUB30:RETURN
  19. 25 SYS52340:RETURN
  20. 27 CLOSE15:OPEN15,8,15,"S0:/WORDS":CLOSE15:OPEN4,8,4,"0:/WORDS,S,W"
  21. 28 FORJ=1TO10:PRINT#4,S$(J)R$STR$(S(J))R$;:NEXT:CLOSE4:RETURN
  22. 30 PRINT"[152]";:GOSUB60:SYS52310:RETURN
  23. 60 IFLL=1OR(PEEK(56577)AND16)=THTHENRETURN
  24. 61 GOTO905
  25. 65 POKE659,6+ABS((BD=1200)*2):C=1022730/BD:GOSUB90:POKE51968,A2%:POKE51969,A1%
  26. 66 IFBD=1200THENC=1022730/BD*.966:GOSUB90
  27. 67 POKE665,A2%:POKE666,A1%:C=1022730/BD/2-100:GOSUB90:POKE661,A2%:POKE662,A1%
  28. 68 RETURN
  29. 70 B$="[164]"
  30. 71 SYS52450:B$=LEFT$(A$,ABS(A1%-1)):RETURN
  31. 80 A$="":SYS52320:IFA2%=0THENRETURN
  32. 82 IFA2%=1ORA2%=3ORA2%=16ORA2%=9THENA$="[193]":RETURN
  33. 84 IFA2%<>83ANDA2%<>19THENRETURN
  34. 86 FORKK=1TO2E3:SYS52320:IFA2%=0THEN89
  35. 87 IFA2%=17ORA2%=67THENKK=2E3
  36. 88 IFA2%=65ORA2%=13THENA$="[193]":KK=2E3
  37. 89 NEXTKK:RETURN
  38. 90 A1%=C/256:A2%=C-A1%*256:RETURN
  39. 94 GOSUB30:IFIT$=""THENGOSUB10:IT$=A$:GOSUB97:RETURN
  40. 95 GOSUB97:IFPEEK(679)<>1THENGOSUB30:O$=A$:A$="":GOSUB30:A$=O$
  41. 96 RETURN
  42. 97 A$=IT$:B$=":":GOSUB71:IFA1%=0THENIT$="":RETURN
  43. 98 IT$=MID$(A$,A1%+1):A$=B$:RETURN
  44. 100 OPEN5,2,0:A1%=1:A2%=1:FORK=1TO127:SP$=SP$+" ":NEXTK:R$=CHR$(13):DIMS$(11),S(11)
  45. 105 A1%=0:GOSUB1:RK$=A$:ZE$=CHR$(0)
  46. 110 A1%=1:GOSUB1:BD=VAL(LEFT$(A$,5)):LL=VAL(MID$(A$,6)):A1%=2:GOSUB1:TH=VAL(A$)
  47. 115 A1%=4:GOSUB1:IT$=A$:GOSUB65:GOSUB800:R$=CHR$(13):A$="":GOSUB30
  48. 125 A$="**  [215] [207] [210] [196] [211]  **":GOSUB24:A$="  BY [196]AN [195]OLE  ":GOSUB24:A$="":GOSUB30
  49. 127 F$="[215][201][206][212][210][207]":GOSUB855:GOSUB80:B$="":A$="":O$="":IT$="":GOSUB13
  50. 130 GOSUB925:A$="[215]ORDS > ":GOSUB94:GOSUB25:IFA$=""THEN130
  51. 133 IFA$="[199]"ORLEFT$(A$,2)="[199][207]"ORA$="[216]"ORA$="[194][217][197]"THENIT$=A$:GOTO900
  52. 135 ON-(A$="[200]"ORA$="?"ORA$="[200][197][204][208]")GOTO175:IFA$="[194][194][211]"GOTO900
  53. 140 ON-(A$="[208][204][193][217]")GOTO200:IFA$="[210][197][211][197][212]"ANDSC>7THEN430
  54. 145 IFA$="[200][201][199][200]"THENGOSUB725:GOTO130
  55. 150 IFA$="[214]"THENA$="[214]ERSION 1.3 - [210]ELEASED [207]CT 10TH, 1988":GOSUB30:GOTO130
  56. 155 GOTO130
  57. 175 F$="[215][200][197][204][208]":GOSUB855:GOSUB80:IFFF%=0THEN130
  58. 180 CLOSE1:OPEN1,8,5,"I":CLOSE1:GOTO130
  59. 200 GOSUB3:IFQTHENA$="[207]NLY 1 TRY AT THE HIGH SCORE!":GOSUB30:GOTO130
  60. 203 IFDATHEN231
  61. 205 DATABXBSF,IPCCZ,DBDIF,ESFBE,PGGBM,HPSHF,IBUDI,DJWJM,KPMMZ,LBZBL,SBKBI,MFWFM
  62. 210 DATANJNJD,BOOFY,QJQFS,RVFTU,SJWFS,QSFTT,PUUFS,FWFOU,XFBWF,FYUPM,NVTIZ,AFCSB
  63. 215 DATAGJAAZ,UIJDL,ESVOL,GMPPE,UJHFS,GBLFS,CPPUI,MZJOH,TRVBU,HBVAF,PXJOH,UISFF
  64. 220 DATATJHIU,BYMFT,XPSET,ESJWF,RVBSU,DSFFQ,CFMDI,QSFTT,TQBSL,SBEBS,SVSBM,TNFMM
  65. 225 DATAGSPXO,ESJGU,TLJSU,XPSTF,LOJGF,QVQQZ,LJUUZ,DIJME,TVSMZ,CZUFT,IVNBO,GMFFU
  66. 227 N=60:R=.:DIMN$(N),Z(5),Y(5):FORJ=1TON:READN$(J):NEXT:DA=1
  67. 231 A$="[210]EMEMBER, YOU MUST ENTER ONLY [210][197][193][204] 5":GOSUB30
  68. 232 A$="LETTER WORDS.  [197]NTERING A '*' AT THE":GOSUB30
  69. 233 A$="[199]UESS PROMPT WILL ABORT THE CURRENT":GOSUB30
  70. 234 A$="WORD.  [199]OOD LUCK, YOU'LL NEED IT!":GOSUB30
  71. 235 IFR=5THEN400
  72. 237 X=RND(-TI):W$=N$(RND(1)*N+1):A$="[207][203], [201][160]HAVE MY WORD!":GOSUB30:G=.
  73. 240 GOSUB925:A$="[199]UESS ("+MID$(STR$(G),2)+") ? ":GOSUB94:GOSUB25:IFA$="*"THEN15
  74. 250 B$=A$:G=G+1:IFLEN(A$)<>5THENA$="[205]UST BE A 5 LETTER WORD!":GOSUB30:GOTO240
  75. 260 V=.:H=V:M=H:FORJ=1TO5
  76. 270 Z=ASC(MID$(B$,J,1))-128:Y=ASC(MID$(W$,J,1))-1:IFY=64THENY=90
  77. 280 IFZ=65ORZ=69ORZ=73ORZ=79ORZ=85ORZ=89THENV=V+1
  78. 290 IFZ=YTHENM=M+1
  79. 300 Z(J)=Z:Y(J)=Y:NEXTJ:IFM=5THEN360
  80. 310 IFV=.ORV=5THENA$="[215]HAT KIND OF WORD IS THAT ?":GOSUB30:GOTO240
  81. 320 FORJ=1TO5:Y=Y(J):FORK=1TO5:IFY=Z(K)THENH=H+1:Z(K)=.:GOTO340
  82. 330 NEXTK
  83. 340 NEXTJ
  84. 350 A$="[205]ATCH ="+STR$(H)+"[207]RDER ="+STR$(M)+"":GOSUB30:GOTO240
  85. 360 A$="[217]OU [199]OT IT!!":GOSUB30:SS=SS+1000-G*5:R=R+1:GOTO370
  86. 365 R=R+1:SS=(SS-1000)*-(SS-1000>.)
  87. 370 A$="[217]OUR [211]CORE IS"+STR$(SS)+" !":GOSUB30
  88. 380 ON-(R=5)GOTO390:A$="[196]O [217]OU [215]ISH TO [195]ONTINUE ? ":GOSUB30:GOSUB5:IFA$="[217]"THEN235
  89. 390 IFSS<S(10)THENA$="[217]OU DIDN'T MAKE THE [200]IGH [211]CORE [204]IST !":GOSUB30:GOTO420
  90. 400 GOSUB700:IFLTHENA$="[217]OU [193]RE #"+MID$(STR$(Q),2)+" [207]N [212]HE [200]IGH [211]CORE [204]IST !":GOSUB30
  91. 410 IFLTHENA$="[211]TANDBY, [213]PDATING [211]CORES !":GOSUB30:GOSUB27:GOSUB725:GOTO130
  92. 420 A$="[214]IEW [200]IGH [211]CORES ? ":GOSUB30:GOSUB5:ON-(A$<>"[217]")GOTO130:GOSUB725:GOTO130
  93. 430 A$="[210]ESETTING [200]IGH [211]CORE [198]ILE !":GOSUB30:CLOSE15:OPEN15,8,15,"S0:/WORDS"
  94. 440 CLOSE15:OPEN4,8,4,"0:/WORDS,S,W":FORQ=1TO10
  95. 450 PRINT#4,"[200]IGH [211]CORE [210]ESET           "R$"0"R$;:NEXT:CLOSE4:RF=.:GOSUB13:GOTO130
  96. 700 L=.:FORQ=1TO10:ON-(SS>S(Q))GOTO705:NEXT:RETURN
  97. 705 L=1:FORJ=10TOQSTEP-1:S$(J+1)=S$(J):S(J+1)=S(J):NEXT:S$(Q)=N$:S(Q)=SS
  98. 710 IFLEN(S$(Q))<24THENS$(Q)=S$(Q)+" ":GOTO710
  99. 715 IFLEN(S$(Q))>24THENS$(Q)=LEFT$(S$(Q),27)
  100. 720 S$(Q)=S$(Q)+"["+MID$(STR$(R),2)+"]":RETURN
  101. 725 A$="[200]ALL OF [198]AME [204]IST":GOSUB30
  102. 730 A$="#  [200]IGH [211]CORER            [215]ORDS [211]CORE":GOSUB30
  103. 735 A$="--------------------------------------":GOSUB30
  104. 740 FORQ=1TO10:Q$=MID$(STR$(Q),2):IFQ<10THENQ$="0"+Q$
  105. 742 T$="    ":IFS(Q)>999THENT$="   "
  106. 743 IFS(Q)<10THENT$="      "
  107. 745 A$=Q$+" "+S$(Q)+T$+MID$(STR$(S(Q)),2)+R$:GOSUB30:A$="":NEXT:RETURN
  108. 800 A$=LEFT$(RK$,30):GOSUB70:N$=B$:SC=ASC(MID$(RK$,37,1)):CW=ASC(MID$(RK$,41,1))
  109. 809 RETURN
  110. 810 IFA2%<1THENRETURN
  111. 815 B$=A$:IFA2%<>67THEN820
  112. 816 A$="[195]HAT MODE.":GOSUB30:A1=PEEK(680):A2=PEEK(682):POKE680,37:POKE682,1
  113. 818 FORK=0TO1:GOSUB10:K=-(A$="/"):NEXTK:POKE680,A1:POKE682,A2:GOTO850
  114. 820 IFA2%<>84THEN825
  115. 822 TI$="000010":GOTO850
  116. 825 IFA2%=75THEN900
  117. 850 GOSUB10:A$=B$+A$:RETURN
  118. 855 GOSUB80:IFA$="[193]"THENRETURN
  119. 860 A$="":GOSUB30:POKE684,0:OPEN4,8,4,"0:"+F$+",S,R":GET#4,C$
  120. 865 FF%=0:IFST<>0THENFF%=1:CLOSE4:OPEN4,8,4,"$":GOTO875
  121. 867 A$=LEFT$(SP$,CW):SYS52380:A$=C$+LEFT$(A$,A1%):C$="":IFA2%<1THENC$=""
  122. 869 A3%=A2%:GOSUB30:GOSUB80:IFA$<>"[193]"ANDA3%<1THEN867
  123. 875 POKE684,0:AB%=-(A$="[193]"):A$="":GOSUB30:CLOSE4:RETURN
  124. 900 A$="([210]ETURNING TO [194][194][211])":GOSUB30:A$=""
  125. 905 PRINT:PRINT"[145][145][145][145]SYS52470:REM[145][145][145]"
  126. 910 SYS52410:A$=RK$:A1%=-1:SYS52420:A$=STR$(BD)+"     "+STR$(LL):A1%=-1:SYS52420
  127. 915 A$=STR$(TH):A1%=-1:SYS52420:A$=IT$:A1%=-1:SYS52420:A$=""
  128. 920 POKE631,13:POKE198,1:CLOSE5:END
  129. 925 A=VAL(TI$)/100:B=SC*10--10:A=B-A:IFA<0THENA$="[217]":RETURN
  130. 930 A=VAL(MID$(STR$(A),2,3)):IFA>3THENRETURN
  131. 935 LP=LP--1:IFLP>3THENA$="[217]OU HAVE"+STR$(A)+" MINUTES LEFT.":GOSUB30:LP=0
  132. 937 RETURN
  133.